home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / dgw / range.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-27  |  558 b   |  30 lines
  1. C = -1
  2. OPEN "text.dgw" FOR INPUT AS #1
  3. OPEN "range.dgw" FOR OUTPUT AS #2
  4. DO
  5. LINE INPUT #1, a$
  6. IF INSTR(a$, "TITLE_") THEN
  7. a$ = MID$(a$, 7)
  8. C = C + 1
  9. IF INSTR(a$, "Act ") THEN
  10. p = INSTR(a$, "Act ")
  11. n$ = MID$(a$, 1, p - 1)
  12. 'PRINT n$
  13. IF n$ <> oldn$ THEN PRINT #2, MID$(STR$(oldc), 2): PRINT #2, n$: PRINT #2, MID$(STR$(C), 2):
  14. oldn$ = n$
  15. oldc = C - 1
  16.  
  17. ELSE
  18. IF INSTR(a$, "NOTES") OR INSTR(a$, "Sonnet") THEN
  19. ELSE
  20. PRINT #2, MID$(STR$(oldc), 2)
  21. PRINT #2, a$
  22. PRINT #2, MID$(STR$(C), 2)
  23. oldc = C
  24. END IF
  25. END IF
  26.  
  27. END IF
  28. LOOP UNTIL EOF(1)
  29.  
  30.